home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / colsoncd.dxr / 00001Series_152_EXMTG46.PIC.ls < prev    next >
Encoding:
Text File  |  2000-01-11  |  3.6 KB  |  127 lines
  1. on mouseUp
  2.   puppetSound("mainsnd")
  3.   put "MTG46: 1-1/2" & QUOTE & " to 1-9/16" & QUOTE into field "mainmounting"
  4.   puppetTransition(47, 1, 8)
  5.   if char 1 of field "Tblcaste,CA_MOD" = "1" then
  6.     if field "tblwheel,TG_OP" contains "TG2" then
  7.       if field "tblcaste,DIAMETER" = "5" then
  8.         if field "tblcaste,WHEELDES" contains "Performa" then
  9.           play frame "1optiond"
  10.           abort()
  11.         end if
  12.       else
  13.         play frame "1optionb"
  14.         abort()
  15.       end if
  16.     end if
  17.     if field "tblwheel,TG_OP" contains "TG1" then
  18.       play frame "1optionc"
  19.       abort()
  20.     end if
  21.     if field "tblcaste,BRK_OP" contains "BRK3" then
  22.       play frame "1optione"
  23.       abort()
  24.     end if
  25.     play frame "1optiona"
  26.     abort()
  27.   end if
  28.   if char 1 of field "Tblcaste,CA_MOD" = "2" then
  29.     if field "tblcaste,BRK_OP" contains "BRK6" then
  30.       if (field "tblwheel,TG_OP" contains "TG1") and (field "tblwheel,TG_OP" contains "TG2") then
  31.         play frame "2optiona"
  32.         abort()
  33.       end if
  34.       if field "tblwheel,TG_OP" contains "TG1" then
  35.         play frame "2optionb"
  36.         abort()
  37.       end if
  38.       if field "tblwheel,TG_OP" contains "TG2" then
  39.         play frame "2optionc"
  40.         abort()
  41.       end if
  42.       play frame "2optiond"
  43.       abort()
  44.     end if
  45.     if field "tblcaste,BRK_OP" contains "BRK4" then
  46.       if (field "tblwheel,TG_OP" contains "TG1") and (field "tblwheel,TG_OP" contains "TG2") then
  47.         play frame "2optione"
  48.         abort()
  49.       end if
  50.       if field "tblwheel,TG_OP" contains "TG1" then
  51.         play frame "2optionf"
  52.         abort()
  53.       end if
  54.       if field "tblwheel,TG_OP" contains "TG2" then
  55.         play frame "2optiong"
  56.         abort()
  57.       end if
  58.       play frame "2optionh"
  59.       abort()
  60.     end if
  61.     if field "tblcaste,BRK_OP" contains "BRK2" then
  62.       if (field "tblwheel,TG_OP" contains "TG1") and (field "tblwheel,TG_OP" contains "TG2") then
  63.         play frame "2optioni"
  64.         abort()
  65.       end if
  66.       if field "tblwheel,TG_OP" contains "TG1" then
  67.         play frame "2optionj"
  68.         abort()
  69.       end if
  70.       if field "tblwheel,TG_OP" contains "TG2" then
  71.         play frame "2optionk"
  72.         abort()
  73.       end if
  74.       play frame "2optionl"
  75.       abort()
  76.     end if
  77.     if field "tblcaste,BRK_OP" contains "BRK1" then
  78.       if (field "tblwheel,TG_OP" contains "TG1") and (field "tblwheel,TG_OP" contains "TG2") then
  79.         play frame "2optionm"
  80.         abort()
  81.       end if
  82.       if field "tblwheel,TG_OP" contains "TG1" then
  83.         play frame "2optionn"
  84.         abort()
  85.       end if
  86.       if field "tblwheel,TG_OP" contains "TG2" then
  87.         play frame "2optiono"
  88.         abort()
  89.       end if
  90.       play frame "2optionp"
  91.       abort()
  92.     end if
  93.     if field "tblcaste,OTHER_OP" contains "DC1" then
  94.       if (field "tblwheel,TG_OP" contains "TG1") and (field "tblwheel,TG_OP" contains "TG2") then
  95.         play frame "2optionq"
  96.         abort()
  97.       end if
  98.       if field "tblwheel,TG_OP" contains "TG1" then
  99.         play frame "2optionr"
  100.         abort()
  101.       end if
  102.       if field "tblwheel,TG_OP" contains "TG2" then
  103.         play frame "2options"
  104.         abort()
  105.       end if
  106.       play frame "2optiont"
  107.       abort()
  108.     end if
  109.     if not (field "tblcaste,OTHER_OP" = "DC1") then
  110.       if (field "tblwheel,TG_OP" contains "TG1") and (field "tblwheel,TG_OP" contains "TG2") then
  111.         play frame "2optionu"
  112.         abort()
  113.       end if
  114.       if field "tblwheel,TG_OP" contains "TG1" then
  115.         play frame "2optionv"
  116.         abort()
  117.       end if
  118.       if field "tblwheel,TG_OP" contains "TG2" then
  119.         play frame "2optionw"
  120.         abort()
  121.       end if
  122.       play frame "2optionx"
  123.       abort()
  124.     end if
  125.   end if
  126. end
  127.